#!/usr/bin/perl -w

$url = "http://repository.seasr.org/Datasets/UCI/arff/";
open F, "wget -q -O- '$url'|" or die;
    while ($line = <F>) {
	#print $line;
	chomp $line;
        if ($line =~ /\"([^\"]*\.arff)\"/) {
        	print $1,"\n";
		$fileURL = $url . $1;
	    	system("wget $fileURL");
	}
    }

